home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
games_d
/
hunchy.zip
/
CODE.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1980-01-01
|
491b
|
23 lines
const
DePlace = 128;
var
InFil,OutFil : text;
Str : string [255];
Ctr : byte;
begin
Writeln ('MESSAGE CODER by Robert Schmidt');
Assign (InFil,'SECRET.TXT');
Assign (OutFil,'SECRET.COD');
Reset (InFil); ReWrite (OutFil);
repeat
Readln (InFil,Str);
Writeln (Str);
for Ctr:=1 to Length(Str) do
Inc (Str[Ctr],DePlace);
Writeln (OutFil,Str);
Writeln (Str);
Writeln;
until Eof(InFil);
Close (InFil); Close (OutFil);
end.